home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / s / supremov3.00a1.dms / supremov3.00a1.adf / S / Demo.sm next >
Text File  |  1992-04-01  |  623b  |  33 lines
  1. /*******************************************************************************
  2.  *
  3.  *   Demo.sm                   Copyright (c) 6.06.1994, K. Wojcieszek
  4.  *
  5.  *   Program uruchomiony pod SuperMemo v2.03 pokazuje
  6.  *   kolejne jednostki bazy w trybie edycji.
  7.  *
  8.  *   Wersja 1.00
  9.  *
  10.  *******************************************************************************/
  11.  
  12. OPTIONS RESULTS
  13. ADDRESS 'rexx_sm'
  14.  
  15. sec = 3
  16. sm_to_edit
  17. sm_num;  n = RESULT
  18.  
  19. DO i = 1 TO  n
  20.     CALL TIME( 'R' )
  21.     DO WHILE (TIME( 'E' ) < sec)
  22.         NOP
  23.     END
  24.     sm_next
  25.     if RESULT = 'RESULT' then LEAVE
  26. END
  27. CALL TIME( 'R' )
  28. DO WHILE (TIME( 'E' ) < sec)
  29.     NOP
  30. END
  31.  
  32. sm_to_end
  33.